﻿Public Class CurrentUserInfo

    '用户名
    Private m_EmployeeName As String
    Public Property EmployeeName() As String
        Get
            Return m_EmployeeName
        End Get
        Set(ByVal value As String)
            m_EmployeeName = value
        End Set
    End Property
    ''用户名
    'Private m_LoginEmployeeName As String
    'Public Property LoginEmployeeName() As String
    '    Get
    '        Return m_LoginEmployeeName
    '    End Get
    '    Set(ByVal value As String)
    '        m_LoginEmployeeName = value
    '    End Set
    'End Property

    '密码
    Private m_Password As String
    Public Property Password() As String
        Get
            Return m_Password
        End Get
        Set(ByVal value As String)
            m_Password = value
        End Set
    End Property

    '全名
    Private m_FullName As String
    Public Property FullName() As String
        Get
            Return m_FullName
        End Get
        Set(ByVal value As String)
            m_FullName = value
        End Set
    End Property

    '车间
    Private m_Factory As String
    Public Property Factory() As String
        Get
            Return m_Factory
        End Get
        Set(ByVal value As String)
            m_Factory = value
        End Set
    End Property
    '车间ID
    Private m_FactoryID As String
    Public Property FactoryID() As String
        Get
            Return m_FactoryID
        End Get
        Set(ByVal value As String)
            m_FactoryID = value
        End Set
    End Property
    '车间简称
    Private m_FactoryEName As String
    Public Property FactoryEName() As String
        Get
            Return m_FactoryEName
        End Get
        Set(ByVal value As String)
            m_FactoryEName = value
        End Set
    End Property

    'WorkCenter
    Private m_WorkCenter As String
    Public Property WorkCenter() As String
        Get
            Return m_WorkCenter
        End Get
        Set(ByVal value As String)
            m_WorkCenter = value
        End Set
    End Property

    'WorkCenter
    Private m_WorkCenterID As String
    Public Property WorkCenterID() As String
        Get
            Return m_WorkCenterID
        End Get
        Set(ByVal value As String)
            m_WorkCenterID = value
        End Set
    End Property

    'Team
    Private m_Team As String
    Public Property Team() As String
        Get
            Return m_Team
        End Get
        Set(ByVal value As String)
            m_Team = value
        End Set
    End Property

    Private m_TeamID As String
    Public Property TeamID() As String
        Get
            Return m_TeamID
        End Get
        Set(ByVal value As String)
            m_TeamID = value
        End Set
    End Property

    'Operation
    Private m_Operation As String
    Public Property Operation() As String
        Get
            Return m_Operation
        End Get
        Set(ByVal value As String)
            m_Operation = value
        End Set
    End Property

    'CardNum
    Private m_CardNum As String
    Public Property CardNum() As String
        Get
            Return m_CardNum
        End Get
        Set(ByVal value As String)
            m_CardNum = value
        End Set
    End Property

    'PayCard
    Private m_PayCard As String
    Public Property PayCard() As String
        Get
            Return m_PayCard
        End Get
        Set(ByVal value As String)
            m_PayCard = value
        End Set
    End Property

    'Resource
    Private m_Resource As String
    Public Property Resource() As String
        Get
            Return m_Resource
        End Get
        Set(ByVal value As String)
            m_Resource = value
        End Set
    End Property

    'Roles
    Private m_Roles As String
    Public Property Roles() As String
        Get
            Return m_Roles
        End Get
        Set(ByVal value As String)
            m_Roles = value
        End Set
    End Property

    'SecretLevel
    Private m_SecretLevel As Integer
    Public Property SecretLevel() As Integer
        Get
            Return m_SecretLevel
        End Get
        Set(ByVal value As Integer)
            m_SecretLevel = value
        End Set
    End Property

    'ServerHostInfo
    Private v_ServerHostInfo As ServerHostInfo
    ''' <summary>
    ''' ServerHost信息
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property ServerHostInfo()
        Get
            Return v_ServerHostInfo
        End Get
        Set(ByVal value)
            v_ServerHostInfo = value
        End Set
    End Property

    Private v_EmployeeID As String = ""
    ''' <summary>
    ''' 人员ID
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property EmployeeID() As String
        Get
            Return v_EmployeeID
        End Get
        Set(ByVal value As String)
            v_EmployeeID = value
        End Set
    End Property

    Private v_ShiftID As String = ""
    ''' <summary>
    ''' 班ID
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property ShiftID()
        Get
            Return v_ShiftID
        End Get
        Set(ByVal value)
            v_ShiftID = value
        End Set
    End Property

    Private v_Menu As New DataTable
    ''' <summary>
    ''' 菜单数据
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Menu()
        Get
            Return v_Menu
        End Get
        Set(ByVal value)
            v_Menu = value
        End Set
    End Property

    Private v_OrgInfo As String = String.Empty
    ''' <summary>
    ''' 组织机构信息
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property OrgInfo()
        Get
            Return v_OrgInfo
        End Get
        Set(ByVal value)
            v_OrgInfo = value
        End Set
    End Property

    Private v_APIUserName As String = String.Empty
    ''' <summary>
    ''' API使用用户名
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property APIUserName()
        Get
            Return v_APIUserName
        End Get
        Set(ByVal value)
            v_APIUserName = value
        End Set
    End Property
    Private v_APIPassword As String = String.Empty
    ''' <summary>
    ''' API使用用户密码
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property APIPassword()
        Get
            Return v_APIPassword
        End Get
        Set(ByVal value)
            v_APIPassword = value
        End Set
    End Property
    Private v_SessionID As String = String.Empty
    ''' <summary>
    ''' 登录SessionID
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property SessionID()
        Get
            Return v_SessionID
        End Get
        Set(ByVal value)
            v_SessionID = value
        End Set
    End Property

    Private v_HomePage As String = String.Empty
    ''' <summary>
    ''' 个人主页
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property HomePage()
        Get
            Return v_HomePage
        End Get
        Set(ByVal value)
            v_HomePage = value
        End Set
    End Property

    Private v_SealImgUrl As String = String.Empty
    ''' <summary>
    ''' v_SealImgUrl
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property SealImgUrl()
        Get
            Return v_SealImgUrl
        End Get
        Set(ByVal value)
            v_SealImgUrl = value
        End Set
    End Property

    '分厂代码
    Public Property FactoryCode As String
End Class
